(use-modules (trs examples))
(use-modules (srfi srfi-64))

(test-begin "arith-2")
(test-equal (arith-2 '(^ (+ a b) 2))
  '(+ (* a a) (+ (* 2 b a) (* b b))))
(test-end "arith-2")
